home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Objects in Layers.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  849 b   |  24 lines
  1. ' This simple macro asks users for a layer, cycles through
  2. ' the entire drawing counting the number of objects on that layer.
  3. ' 
  4. ' Un-remark these next 2 lines to make the input box appear in the upper 
  5. ' left corner of the DesignCAD window, so it does not cover the drawing area.
  6.     ' Sys(130) = 5
  7.     ' Sys(131) = 5
  8. ' Truncate the number to the right of the decimal
  9.     Precision 0
  10. ' Get Layer from user
  11.     Input "Count Objects on Which Layer??", LayNum
  12. ' sys(9) is the number of entities
  13.     for j = 1 to sys(9)
  14.     ' Get the Attributes of each object
  15.         getattr j, type, grp, LayNum2
  16.     ' If this object is on the correct layer then
  17.           if LayNum = LayNum2 then
  18.             a = a + 1
  19.                   endif
  20. ' Get next Object
  21.     next j
  22. ' We've gone through the entire drawing, display results.
  23.     Message "There are ", a, " objects in layer ", LayNum
  24. End